home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / H406.ZIP / TOTDEM11.ZIP / DEMWI1.PAS < prev    next >
Pascal/Delphi Source File  |  1991-02-11  |  407b  |  24 lines
  1. program DemoWindowOne;
  2. {DEMWI1 - simple window}
  3.  
  4. Uses DOS,CRT,
  5.      totFAST, totINPUT, totWIN;
  6.  
  7. var
  8.   MyWindow: WinOBJ;
  9.   K: word;
  10.   X,Y: byte;
  11. begin
  12.    Screen.Clear(white,'░'); {paint the screen}
  13.    with MyWindow do
  14.    begin
  15.       Init;
  16.       Draw;
  17.       Screen.WriteLn('Hello Mum');
  18.       Repeat
  19.          WinGetKey(K,X,Y);
  20.       until (K = 600) or (K= 27);
  21.       Done;
  22.    end;
  23. end.
  24.